************************************************************************* 

File Name: MAIN.S 
7/25/00 - SN V0.1 

This is the main module. When not processing anything the execution remains 
in this module at all times. 

************************************************** 
must be in this order 



LB ! 



.include 
.include 
.include 
.include 
.include 



"fvt.inc" 
"keydef.inc" 
"data.inc" 
"equ.inc" 
"macro, inc" 



.global KEY_NUMBER, KEYNUMBERBUFFER 



fU 



.extern irqO 
.extern irql 
.extern irq2 
.extern irq3 
.extern irq4 
.extern irq5 



.extern check_key 

.extern ScanKeyPad 

.extern WaitForKeyPress 

.extern ServiceCode 

.extern wait_key_off 

. extern set_t 1 6_timer 

.extern disable_tl6_timer 

.extern DialOut 

.extern delay_100ms 

.extern SWInitialize 



************************************************************* 
; interrupt vectors 
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irqO_vec: 

.word irqO 
irql_vec: 

.word irql 
irq2_vec: 

.word irq2 
irq3_vec: 

.word irq3 
irq4_vec: 

.word irq4 
irq5_vec: 

.word irq5 

.************************************************************ 

3 

£5 RESET - main entry 

. 

.—************************************************************ 

Cs 5 

lH *************************************************** 

-J Initialize stack pointer hi and low bytes. 

~h * * * * * * ****************************************************** 

1~ Id SPH, #HIGH(stack_ptr) 

Jg Id SPL, #LOW (stack_ptr) 

FS ************************************************************* 

m 

?5 Initialize port modes. 

pOlm and p2m defaults are used. They are fine. 
.************************************************************ 

Id P3M,#00h . ;p32,p33,p31,p30 = inputs 

Id P2M, #0ffh ; p2 = inputs (for keyscan rows) 

Id P01M, #00000 100b ; pO = outputs (for leds) and keyscan 

columns 

.************************************************************ 
; Reset the counters. 

.************************************************************ 

srp EXTEND_GROUP_D 

Id ctrO, #T8_RESET_TOUT 

Id ctrl,#03h ;(#TC8_16_OUT)| (#INIT_T8_OUT_HIGH)| 
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(#INIT_T 1 6_OUT_HIGH) ; port 3 .6 is timer output 

Id ctr2,#T16_RESET_TOUT 

srp EXTEND_GROUP_F 
Id wdtmr,#00 

Id 0, #0FEh ;PCON register is 0 

. ********* Strictly for OTP 'E72/E73 ************** 
Id Oeh, #000001 00b 



; BRRRR... Start me up.. 

;** check if warm or cold start ** 

tbitnz smr, #BIT7, warm ;Check for warm start. 



;** COLD START ** 

Id smr, #00 100000b 



;** Clear Internal RAM if COLD START and RAM CURROPTED ** 
srp REG_GROUP 

;Check if RAM should be 



1 cp 


CHECKl,#0AAh 


f=icleared after cold start 




ne, ClearRam 


fU cp 


CHECK2, #0AAh 


CO jr 


ne, ClearRam 


Q cp 


CHECK3, #0AAh 


H- j r 


eq, warm 


ClearRam: 




srp 0 




Id 


r5, SPL 


ClearLoop: 




clr @r5 


dec r5 




cp 


r5,#05h 


jr 


nz,ClearLoop 



Id CHECK l,#0AAh 

checked on cold boot 

Id CHECK2, #0AAh 



;load fields with values to be 
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in 



Id CHECK3, #OAAh 



********* ************** ******* ********* ********************* 

Warm start 

check key depressed 

if key is not depressed then return with 

KEYNUMBER = Oxff; 
************************************************************ 

warm: 

srp REG_GROUP 

Id MODE,#0 

Id P_MODE,#0 

Id p2,#0fh ;initialize p2 

Id pl,#47h ;Initializepl 

or p3,#BIT6 ;CS=high 

, Id pO,#BIT3 ;RS0=0 



rF: 

Us 

3 jjj. 



RedLedOff ;Make sure the record led is off 

Id rl,p3 
or p3,#BITl 
or p3,#BIT2 

tbitz p3,#BITl ,DialOutBaby ;Check Battery Voltage 

tbitz p3,#BIT2,DialOutBaby ;Check Battery Voltage 



call WaitForKeyPress ;Wait for key press 
lQ jr nc, warm ; None, do other stuff.. 

KJotANewValidKey: 

call ServiceCode ;serice the key accordingly. 

call WaitForKeyPress ;wait for another key. 

jr c, GotANewValidKey 

call disable_tl6_timer ;disable timers. 

CheckforBatteryVoltage: 

tbitz p3,#BITl,DialOutBaby 
tbitz p3,#BIT2,DialOutBaby 

jr warm ; If both batteries OK. 

;continue on. 

DialOutBaby: 
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;Check battery voltage if voltage is less 

;than 

normal. Dial out. 



C3 

Cn work.... 



Id 


41h, #02h 


Id 


42h,#08h 


Id 


43h,#02h 


id 


44n,ffuyn 


Id 


45h,#0ffh 


Id 


46h, #09h 


Id 


47h,#03h 


Id 


48h,#06h 


Id 


49h,#05h 


Id 


4ah, #03h 


Id 


4bh,#05h 


Id 


4ch,#0fi£h 


call 


delay_ 


call 


DialOut 



jr warm ; go back to 



lU .byte "Copyright (c)2000-2001 Chamberlain Group. Developed by Yamtech Inc, 847 
=P 963 2829" 



!U 
CO 
C3 
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SERVICE KEY 

File Name: SRVKEY.S 



8/14/00- VI. 0 SN 

This routine services the keys on the charger unit. 
The main functions provided are 

1 . learning the phone number. 

2. Enable recording of ogm. 

3. Enable playback of ogm. 



.include "fvt.inc" 

.include "keydef.inc" 
£3 .include "data.inc" 
%B .include "equ.inc" 

y3 .include "macro. inc 1 ' 

y * 

\[\ .global ServiceCode 
% .global DeviceLightsOff 
.global DevLightKey 

a 

^« 

sQ .extern FlashGreenLed 

FU .extern WaitForKeyReleaseFlashRed 

.extern wait_key_off, port_delay 
J"f .extern WaitForKeyRelease 5 WaitForKeyPressUserDelay, WaitForKeyPress 
r ~ .extern WaitForKeyReleaseAndStartThreeSecTimer 

.extern Delay70ms, settl6_timer, disable_tl6_timer 

; Service key code 

; Key Number in , KEY_NUMBER' 

ServiceCode: 

cp KEY_NUMBER, #MAX_VALED_KEY 

jr ugt, ServiceExit ;check if key pressed is valid 



cp KEY NUMBER, #KEY_RECORD 

jp eq, ProcessRecordKey ;Record OGM 

cp KEY_NUMBER,#KEY_PROGRAM 
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jp eq,LeamAPhoneNumber ;ProcessProgramKey 

;Program phone number 



call WaitForKeyReleaseAndStartThreeSecTimer ;if device key pressed for 

jp nc, ProcessDeviceKey ;three seconds learn a code 

Id KEY_FOR_CODE_FLAG, KEYNUMBER 
jp LearnAPhoneNumber 

ServiceExit: 
ret 

*************************************************** 



C3 
W 



□ 



LearnAPhoneNumber 



Function: 

Leams the Phone number. Max of 10 digits. The first 
digit cannot be a 0. 

Inputs: 

DEVICEJFLAG 
Returns: 

CF = 0 - OK Set PhoneNumberOK Flag 

CF = 1 - Error Reset PhoneNumberOK Flag 



a t , Modifies: 
r "*DigitPointer .equ 40h ;Store Digits 
LoopCounter .equ r8 
Multiplier .equ rl 1 
CodeEntered .equ rl3 



Subords: 

WaitForKeyPress 

CheckFirstDigit 

mul_8 

***************************************** 
LearnAPhoneNumber: 

or MODE, #PROGRAM_MODE 

and pl,#10111111b 
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Id DigitPointer,#41h 
continue: 

call wait_key_off ;Wait for release of key 

ldrr LOOP_COUNTER_H,LOOP_COUNTER_L 5 T30__SECONDS 

call WaitForKeyPressUserDelay ;waits 30 seconds in learn mode 
jp nc,LearnPhoneError 

CheckForDigit: 

call CheckFirstDigit ; check if first digit is valid 

jp c, LearnPhoneError ; 

Id ©DigitPointer, KEY_NUMBER ;first digit OK store it 

inc DigitPointer 
StoreDigits: 

call WaitForKeyPress ;loop to get more digits or 

time out 

jp nc, LearnPhoneError 

CD GreenLedOn 

tf| cp KEY_NUMBER, #9 ;if number key not 

^pressed exit error 

*L| jp ugt, LearnPhoneError ;key pressed is not a digit, exi 

ijjt 
error 

SS53 

£ » 

a Id ©DigitPointer, KEY_NUMBER ;load the digit into storage 

C3 inc DigitPointer increment pointer to digits 

%D 

s"U djnz LoopCounter, StoreDigits ;decrement digit counter 

CO 

77 LearnPhoneOK: 

r ~ Id @DigitPointer,#Offh indicates termination of 

phone number 

RedLedOff ;exit point when things are good 

Id MODE, #0 

rcf 

or pl,#40h 

or P_MODE,#PhoneNumberOK ;Set phonenumberOK Fig 

call wait_key_off ;wait for key release 

ret 

LearnPhoneError: ;exit point when things are bad 

Id @DigitPointer,#Offh ;Indicates termination of 

phone number 
RedLedOff 
or pl,#40h 
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Id MODE, #0 

and P_MODE,#~PhoneNumberOK ;reset PhoneNumberOk Fig 

scf 

ret 



************************************************** 
CheckFirstDigit 

Function: 

Checks the 1st digit of an entered code. It must not be zero. 
If the first digit is one the learn nine more digits or else learn 
six more digits. 

Returns: 

CF = 0 - 1st digit is valid for the device being learned. 
CF = 1 - 1st digit is invalid ... 

Modifies: 

LoopCounter: 

Subords: 
None. 

] CheckFirstDigit: 



Id LoopCounter,#10 ;Default 10 digits 

cp KEY_NUMBER, #KEY_0 

jr eq,First Wrong 

cp KEY_NUMBER, #KEY_1 ;If first # !=1 then enter only 7 
digits 

jr eq,FirstOK 

Id LoopCounter 5 #6 



FirstOK: 
rcf 
ret 

FirstWrong: 

Id LoopCounter,#0 ;Enable Playback if Zero key 



is pressed first 
scf 

jr ProcessPlayBack 
ret 

********************************************** 
ProcessRecordKey: 

Enables Recording of Out Going Message 

.****************************************************** 

ProcessRecordKey: 

call wait_key_off ;Wait for release of key 

ldrr LOOP_COUNTER_H 5 LOOP_COUNTER_L,T30_SECONDS 
second max recording 
f3 ;but 

wait for 30 seconds just in case. 
tQ Id pl,#06h ;Turn on recording. 

CR call port_delay 

Cn call WaitForKeyPressUserDelay ;waits 30 seconds in learn mode 

W jp nc,RecordError 

=F Id pl,#07h ;Turn off recording 

f=i RecordError: 

Id pi 5 #07h ;Turn off recording 

or MODE,#0h ;Recording completed. 



fu ret 

CO 

Q ProcessPlayBack: ;Program + 0 will initiate Playback 

M call wait key_off 

Id pl,#03h 

call port_delay 

ldrr LOOP_COUNTER_H,LOOP_COUNTER_L 9 T30_SECONDS 
second max recording 

;but 

wait for 30 seconds just in case. 

call WaitForKeyPressUserDelay ;waits 30 seconds in learn mode 
jp nc, RecordError 

Id pi ,#07h ;Turn off recording 

scf ;set carry flag to exit from 

program mode. 

jr RecordError 
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; FILENAME: keynew.src 



DESCRIPTION: 



Parses the key pad. There are 12 keys on the key pad. 

The program key allows the user to program the phone number to dial. 

The record key allows the user to record the outgoing message. 



REVISION HISTORY: 

Version: 0.1 

Date: 07/25/00, Author: 



; *** Public Functions *** 



; ** Internal Functions ** 
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.**************************************************************************** 



;** include files ** 
.include "fvtinc" 
.include "data.inc" 
.include "equ.inc" 
.include "keydef.inc" 
.include "macro. inc" 

;** external functions ** 

.extern set_tl6_timer ; Sets up timer for keyscan time-out. 

.extern disable_tl6_timer 
C3 .extern mul_8 
*B .extern FlashGreenLed 
~ .extern FlashRedLed 

;. extern InterDigitDelay 
;** public functions ** 
.global delay_500uS 
i& .global del ay_ 100ms 

= .global WaitForKeyReleaseAndStartThreeSecTimer 

C3 .global WaitForKeyReleaseFlashRed 

sQ .global WaitForKeyRelease 

[ £ J .global WaitForKeyPress 

J- .global WaitForKeyPressUserDelay 

.global ScanKeyPad 
r ~ .global wait_key_off 

.global delay_10ms 

.global delay_ms 

.global check_key 

.global port_delay 

************************************************************ 

Wait for key depressed or 
timeout if no key in 15 seconds 

check every 32 msec. 

return with cf =1 & key_number 
************************************************************ 

WaitForKeyPress : 

tbitnz MODE, #PROGRAM_MODE, SetActionTime ;Time 
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out for Program mode 

ldrr LOOP_COUNTER_H 5 LOOP_COUNTER_L,T8_SECONDS 

jr NotActionTime 

SetActionTime: 

ldrr LOOP_COUNTER_H 5 LOOP_COUNTER_L 3 T8_SECONDS 

NotActionTime : 

call wait key_off ;if key already pressed, wait 

here 

tbitz MODE,#PROGRAM_MODE, NoRedLED 
GreenLedOn 

NoRedLED: 

^Dv/aitForKeyPressUserDelay: 
Idw 

Jt;CURR_LOOP_COUNTER_H 3 CURJl_LOOP_COUNTER_L,LOOP_C 
^UNTER_L 

2 or IO_FLAGS ,#TIMEOUT_FLAG ; This enables the time-out 
M routine in IRIRQ.S 

3 call set_tl6_timer ; Give them a limited time in 
C3 which to respond 

^9 

WaitForKeyOrTimeOut: 
52 call ScanKeyPad 
^2 jr nc, NoKey_CheckForTimeOut 

Id tmpjcey, KEY_NUMBER 
Id loop_cnt,#50 

bounce_lop: 

call ScanKeyPad 

jr nc, NoKeyCheckForTimeOut ; no key 
cp tmp_key, KEY_NUMBER 
jr nz, NoKey_CheckForTimeOut ; not matched 
dj nz loop_cnt,bounce_lop 

call disable_tl6_timer ; Found a key, Stop the Time_out 

counter, 
scf 
ret 
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NoKey_CheckForTimeOut: 

tbitnz IO_FLAGS,#TIMEOUT_FLAG, WaitForKeyOrTimeOut 

call disable_tl6_timer ; Timed_out, Stop the Time_out counter. 

rcf 

ret 

sole control key matrix 

************************************************* 
Scan Key Pad 

set key matrix ports for the SC500 series 

col 0 - pO.O row 0 = p2.0 
col 1 = pO.l row 1 = p2.1 
col 2 = p0.2 row 2 = p2.2 

row 3 = p2.3 

if key is not depressed then return with 
KEY_NUMBER = Oxff; 

gScanKeyPad: 

M and pO, #KeyPadMask ; All columns are low 

s Id KEY_NUMBER,#Offh ;default key number 



v3 
CO 



Get row #, scan ports p2.0 to p2.3 



clr row ;set row counter to zero 

Id i,#00000001b ;start bit at pin 2.0 

row scan_loop: 
cp row,#4 
jr ugt,exit_key_scan 
Id j,i 

and j,p2 ;compare mask to port 2 

jr z,row_found ;zero flag is set if row is found 

inc row increment row counter 

rl i ;try next row 

jr nc,row_scan_loop ;do while c f is not set, end loop after 

8 

rows 

jr exitkeyscan 
row found: 



A-15 



new 



************************************************************ 

Get col #, scan ports pO.O to p0.2 
*************************************************** 

clr col ;set col counter to 0 

or pO, #1 1 1 1 1 1 1 lb ; Start with ColumnO (pO.O) 

and pO, #11 111 110b ;clrp0.0 
col_scan_loop: 

cp col,#4 

jr ugt,exit_key_scan 

call port_delay ;allow port to settle 

call port_delay ;allow port to settle, maybe you donot 

need two delays but leave itfor now. 

I ; cp p2,#0fh ;check if a row pin gets pulled low 

Id r5,p2 
and r5,#0fh 

cp r5,#0fh 

jr ne, compute_key_num ;if a row pin is pulled low exit loop 

Id r5,p0 

or r5> #KeyPadMask 

rl r5 

or r5, #KeyPadMask 
and pO, r5 

jr nc,exit_key_scan ;if pins 2 thru 7 were checked exit loop 

inc col ;else increment col counter 

jr col_scan_loop ;begin loop again, check next 

column 

exit_key_scan: 

and pO,#KeyPadMask ;reset the key 

output ports 

rcf ;no valid key pressed 

ret ; return Oxff in 

KEYNUMBER 

************************************************************ 

Compute key number and return it 

Formula: row * 3 + col = key number 
************************************************************ 

compute_key_num : 
Id rll,row 
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Id rl3,#3 

call mul_8 

add rl3, col 

Id KEYJNTUMBER, rl 3 

and pO, #KeyPadMask 

call TranslateKeyNumber 
scf 

ret ;return valid key number in 

KEY NUMBER 



; All columns are low 



WaitForKeyRelease: 
wait_key_off: 

and pO, #KeyPadMask ; All columns are low 

offjp: 

call check_key 
jr c, offjp 

S ret 

JST- 

f n WaitForKeyReleaseFlashRed: 

m and pO, #KeyPadMask 
iyoffJpO: 

=.C call check_key 

jr c, off_lpO 

. Fj 

%yi 
fli 

Miscellaneous Delay Routines 



; All columns are low 



delay_10ms: 

push i 

Id i, #20 
delay_l Omsloop: 

call delay_500uS 

djnz i, delay_l 0ms_loop 

pop i 

ret 



delay_100ms: 

push r4 

Id r4,#50 
delay_l 00ms_loop: 

call delay_10ms 

djnz r4,delay_100ms_loop 
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pop r4 
ret 

delay_500uS: 

push i 

Id i,#23 
dl48uS: 

call portdelay 

djnz i,dl48uS 

pop i 

ret 
delay_ms: 
BlinkOne: 

GreenLedOn 

call delay_500uS 

£3 BlinkOneHereToo: 
GreenLedOff 

jjj call delay_500uS 
ui djnz i, delay ms 
£ ret 

_ .*********************************************************^ 
t3 ; Delay 1 08usec + 40 usee for the call 

%Q .************************* *******************************^ 

^ port_delay: 
push j 

K P ush J 
pop j 

pop j 
ret 

************************************** 

; Check key ON(true) 5 OFF(false) 
; return: 

; cf = 1 if key depressed 

; cf = 0 if no key 

.************************************************************ 

check_key: 

and pO, #KeyPadMask 
; cp p2, #0ffh 

Id r0,p2 
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and rO,#Ofh ;P00-P02 should be high. 

cp r0,#0fh 

jr eq, NoKeylsPressed 

scf 
ret 

NoKeylsPressed: 
rcf 
ret 

.************************^ 

; Wait For Key Release And Start Three Second Timer 
; Determines if key was pressed for 3 seconds. 
Timer .equ rO 

\Q WaitForKeyReleaseAndStartThreeSecTimer: 
*Q Id Timer,#Offh 

;[\ KeepTiming: 

"J dec Timer 

TI jr z, ThreeSecPassed 

_ call delaylOms 

p call check_key 

vQ jr c, KeepTiming 

fU ret 

%y 

IJ ThreeSecPassed: 
^ scf 
ret 

.***********************************^ 
.* 

;* Translate key number 
.* 

TranslateKeyNumber: 

ldrr rO, rl, Translate 

addw rO,rl ,#0,KEY_NUMBER 

ldc r2,@rr0 

Id KEY_NUMBER, r2 

ret 

TransError: 
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Id KEYNUMBER, #Offh 
ret 

Translate: 

.byte KEY_1 

.byte KEY_2 

.byte KEY 3 

.byte KEY 4 

.byte KEY_5 

.byte KEY6 

.byte KEY_7 

.byte KEY_8 

.byte KEY_9 

.byte KEYRECORD 

.byte KEY_0 

.byte KEYPROGRAM 
.end 
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********** ************************************************** 

file name: irutil.s 

7/27/93 

utility modules 

************************************************************ 



.include "keydef.inc" 

.include "fvt.inc" 

.include "data.inc" 

.include M equ.inc" 

.include "macro. inc M 



□ .global mul_8 

%Q .global mult_16 

vS .global set_tl6_timer 

H; .global disable_tl6_timer 

f\ .global FlashGreenLed 

^ .global FlashRedLed 

5J5JJ 

g .extern delay_10ms 

*5 .************************************************************ 

fU ; Init timer 1 6 counter 

CS ; set clock/8(each tick - 2 usee) 

p ; Terminal counts =128 msec. 

M" .************************************************************ 

set_tl6_timer: 
push rp 

srp 2dh ;REG_GROUP + EXTEND_GROUP_D 
Id tcl61,#0ffh 
Id tcl6h,#0ffh 

Id ctr2,#26h ;T16_CLK_2MHZ+T16_RESET_TOUT+T16_ENA_INT 
; enable interrupt 

Id ctrl, #11 11001 lb ; Set to normal mode 
or ctr2,#T 1 6_ENABLE 
or Ofbh, #MSK_3 
ei 

pop rp 
ret 
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****************************************** 

Disable timer 16 counter 

set clock/8(each tick - 2 usee) 

Terminal counts =128 msec. 
************************************************************ 

disable_tl 6timer: 
push rp 

srp 2dh ;REG_GROUP + EXTEND_GROUP_D 

Id ctr2, #T16_RESET_TOUT 
and Ofbh, #~ MSK_3 

pop rp 

and IO_FLAGS,#-~ TIMEOUT_FLAG 
ret 

************************************************************ 
FlashGreenled 



1-! 

sQ 



: e J 

IS FlashGreenLed: 
ft push r8 
ll Id r8,#10 
fl_10: 

GreenLedOn 
call delay 10ms 
GreenLedOff 
call delay_10ms 
call delay 10ms 
djnz r8,fl_10 
pop r8 
ret 

FlashRedled 
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************************************************** 

FlashRedLed: 

push r8. 

Id r8,#5 
frl_10: 

RedLedOn 

call delay_10ms 

call del ay_ 10ms 

RedLedOff 

call delay_10ms 

call delay_10ms 

djnz r8, frl_10 

pop r8 

ret 

I j .************************************************************ 

Perform a 8 bit by 8 bit unsigned binary multiplication 
input: rl 1 =8 multiplier 
rl2 =0 

rl 3 = 8 multiplicand 
return: 

rrl2= product 

************************************************************ 

H mul_8: 

Id mul_LEN, #9 

clr product_HI 
rcf 

lpl: 

rrc product_HI 

rrc product_LO 

jr nc,nxtl 

add product_HI 3 MULTIPLIER 

nxtl: 

djnz mul_LEN 5 lpl 
ret 

************************************************************ 

Function: 
mult_16 

multiply 16 bit number n number of times 
r9-># of times 
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; r 1 0->h byte of the multiplicand 
; r 1 1 ->1 byte of the multiplicand 
; rrl2->subordinates 

.****************************^ 

mult_16: 

Id rl2,rl0 

Id rl3,rll 

dec r9 

jr z,m_16ret 
m_16: 

addw rl0,rll,rl2,rl3 

djnz r9,m_16 
m_16ret: 

ret 
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******************************************************** 

File Name: DIALOUT.asm 
8/25/00 -SN V0.1 

This function does the dialing out to the phone line and piping the audio signal 
Inputs: none 
Outputs: none 

************************************************************************* 
must be in this order 



.include 
.include 
.include 
.include 
.include 



"fvt.inc" 
"keydef.inc" 
"data.inc" 
"equ.inc" 
"macro. inc" 



.global DialOut 

.extern portdelay 

.extern enable_t 1 6timer 

.extern disable_t!6_timer 

.extern set_tl 6_timer 

.extern delay_100ms 

.extern delay_10ms 



DigitPointer .equ 40h 
DialOut: 

;Port 0 inoutput mode only. We donot read the DTMF signals, in. 



;To dial out 
Initialize XECOM 
pull OH High 
/WR = Low 
/RD = High 
/CS = Low 
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D//V = Low 

D4-D1= Digit transmitted. 

;Wait till /RI goes high, Indicates the ring is stopped. 
Pipe the audio signal 
Hang up and exit 

Id pl,#87h ;turn on grn light 

call InitXecom 



Id 
or 

OH, off hook 

call 

call 
KeepDialing: 

Id 

cp 

jr 

; and 
; Id 



DigitPointer,#41h 
pl,#l 0000000b 

delay_ 100ms 
delay_ 100ms 

r2,@DigitPointer 
r2,#0ffh 

eq, DialingDone 
p2,#C_BIT3 
p3, #00 100000b 



;P1.7 pull high, 



; or 
OH, off hook 
call 



pl,#l 0000000b 
delay_ 100ms 



;P1.7 pull high, 



call GetDigit 

and p0,#C_BIT3 

Id p3, #00 100000b 



call delay_ 100ms 
OutDReg r2 
and p0,#C_BIT3 
Id p3,#00 100000b 



Id p3 ,#000 10000b 



;* Id p3,#01 01 0000b 

Id p3, #01 000000b 

; call delay_ 100ms 

or pO,#BIT3 

; Id p3,#00010000b 

; Id p3,#01000000b 
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inc DigitPointer 
jr KeepDialing 



; or p3,#BIT6 ;Chip Select in inactive 

;Supposedly connected 

;enable playback for 30 seconds... 

DialingDone: 

Id p3,#01 100000b 

call delay_100ms 

call delaylOOms 
; jr HangUp ;*** 

DialingDonel: 
; call portdelay 

; tbitz p2,#BIT4,DialingDonel ; Test for Ring Indicator 

ldrr 

CURR_LOOP_COUNTER_H,CURR_LOOP_COUNTER_L,T8_SECO>TO ;20 second max 
recording 

or IO_FLAGS ,#TIMEOUT_FLAG ; This 

enables the time-out routine in ERIRQ.S 

call set_t!6_timer ; Give them a 

limited time in which to respond 

call port_delay 
WaitForTimeOutl: 

tbitnz IO FLAGS ,#TIMEOUT_FLAG, WaitForTimeOutl 

LoopHere: 

call port_delay 
ldrr 

CURR_LOOP_COUNTER_H 5 CURR_LOOP_COUNTER_L,T30_SECONDS ;20 second max 
recording 

or IO_FLAGS 5 #TIMEOUT_FLAG ; This 

enables the time-out routine in IRIRQ.S 

call set_tl6_timer ; Give them a 

limited time in which to respond 

and pl,#0fbh 

; Turn on the Audio pipe 

call port_delay 
WaitForTimeOut: 

tbitnz IO_FLAGS ,#TIMEOUT_FL AG, WaitForTimeOut 

call disable_tl6_timer ; Timed_out, Stop the 

Time out counter. 
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lout 



Id pl,#87h 
; Turn off the audio pipe 



call port_delay 
ldrr 

CURR_LOOP_COUNTER_H,CURR_LOOP_COUNTER_L,T30_SECONDS ;20 second max 
recording 

or IO_FLAGS,#TIMEOUT_FLAG ; This 

enables the time-out routine in IRIRQ.S 

call set_tl6_timer ; Give them a 

limited time in which to respond 

Id pl,#083h 

; Turn on the Audio pipe 

call portdelay 
m WaitForTimeOutO: 

*□ tbitnz IO_FLAGS,#TIMEOUT_FLAG, WaitForTimeOutO 

Jg call disable_tl6_timer ; Timed_out, Stop the 

SH Time_out counter. 

tn Id pl,#0f7h 

W ; Tum off the audio pipe 



:S HangUp: 

ry and pl,#C_BIT7 ;Hang up and out of here 

CO ret 

□ ret 

I* 

WriteDTMF: 

;Sets up XECOM for writing to DTMF port 

; Id P01M, #00000 100b ; pO = outputs (for leds) and keyscan 

columns 



and p0,#C_BIT3 ;RS0=0 

call port_delay 

and p3,#C_BIT4 ;AVR=0 

or p3,#BIT5 ;/RD=l 

and p3,#C_BIT6 ;CS=0 
ret 

ReadStatus: 

Id p01m,#01000100b 
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t alout 



and p3,#C_BIT6 ;cs=0 

or pO,#BIT3 

or p3,#BIT4 

and p3,#C_BIT5 

call delay_10ms 

nop 

nop 

ret 



InitXecom: 

; Id pO,#BIT3 ;RS0=1 

;* Id p3 ,#000 10000b 

;* Id p3,#00 100000b 

Id p3,#01010000b 

Id p0,#19h;18h ;38h ;RegA,NoInterrupt,DTMF 
mode.Touch Tone mode 

Id p3,#001 00000b 

; Id p3,#00100000b ;Toggle line 

; Id p0,#18h;38h 

; Id p3 ,#00 100000b 

Id p3,#01010000b 

Id p0,#99h;98h;98h ; Write to register B. Burst mode transmit 

Id p3,#00 100000b 

Id p3,#0101 0000b 

Id p0,#08h ;08h 

Id p3 ,#001 00000b ;* 

; Id p0,#08h ;* 

; Id p3,#001 00000b 

Id p3,#01 01 0000b 

; or p0,#08h 

; Id p3 ,#000 10000b 

; Id p3,#01 01 0000b 

ret 



ret 
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GetDigit: 

ldrr rO, rl , TranslateDigits 
addw r0,rl,#0,r2 
ldc r2,@rr0 

ret 



m 



TransError: 

Id r2, #0ffh 
ret 

TranslateDigits: 

.byte DIGITO 

byte DIGIT 1 

byte DIGIT2 

byte DIGIT3 

byte DIGIT4 

byte DIGIT5 

byte DIGIT6 

byte DIGIT7 

byte DIGIT8 

byte DIGIT9 





DATAO 


.equ 


00000000b 


f =3 


DIGIT 1 


.equ 


00010001b 




DIGIT2 


.equ 


00100000b 


fU 

s a i 


DIGIT3 


.equ 


00110001b 




DIGIT4 


.equ 


01000000b 




DIGITS 


.equ 


01010001b 




DIGIT6 


.equ 


01100000b 




DIGIT7 


.equ 


01110001b 




DIGIT8 


.equ 


10000000b 




DIGIT9 


.equ 


10010001b 




DIGITO 


.equ 


10100000b 
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.include "fvt.inc" 
.include "keydef.inc" 
.include "data.inc" 
.include "equ.inc" 
.include "macro. inc" 

;** external functions ** 

; UNUSED Interrupts 

.global irqO 
.global irql 
.global irq2 
.global irq3 
.global irq4 
.global irq5 

; IRQ3 

; if io_flags.KEY_FLAG then deer. loop_count 
; if loop counts = 0 then stop count down 

.*********************************^ 
irq3: 

push rp 



INTERRUPT SERVICE MODULES 



File Name: IRQ. asm 



srp 
tm 



OUT_GROUP+EXTEND_GROUP_D 
ctr2 5 #T16_RESET_TOUT 
z,irq3__ret 



or 



ctr2 ,#T 1 6_RESET_TOUT 
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, ir< 3 



Deer. Loop Counter 

tm io_flags,#TIMEOUT_FLAG 
jr z,irq3_20 ; no flag 

> 

subw curr_loop_counter_h,cuiT_loop_counter_l,#0,# 1 
jr nz,irq3_ret ;not yet time out 
; check low 

cp curr_loop_counter_l,#0 
jr nz,irq3_ret ;not yet time out 
; Reset 

and io_flags,#~ TIMEOUT_FLAG 
jr irq3_ret 

r=1 , Other functions 

SB irq3_20: 

Cm 

return 

=7 irq3_ret: 

[" P°P rP 

iret 

3 y 
fa 

; UNUSED 

9 

irqO: 
irql: 
irq2: 
irq4: 
irq5: 

iret 

> 

.end 
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.list off 

***************************************** 



KEY Assignment for Battery Charger 
keydef h 
8/03/00 

So far we have the # pad and two extra keys. 
***************************************** 





BIT 0 


.equ 


0 




BIT_1 


.equ 


1 




BIT 2 


.equ 


2 




BIT 3 


.equ 


3 




BIT 4 


.equ 


4 




BIT 5 


.equ 


5 




BIT_6 


.equ 


6 




BIT_7 


.equ 


7 




; key number 




ill 


KEY 0 


.equ 


0 


*F 


KEY 1 


.equ 


1 


S 3 


KEY 2 


.equ 


2 




KEY3 


.equ 


3 


; fl 


KEY_4 


.equ 


4 


?s : 
: z^z 


KEY 5 


.equ 


5 


CQ 


KEY 6 


.equ 


6 


£3 


KEY 7 


.equ 


7 




KEY 8 


.equ 


8 




KEY 9 


.equ 


9 



KEY_RECORD .equ 10 
KEYTEST .equ 1 1 

KEY_PROGRAM .equ 12 

MAX_VALID_KEY .equ 12 ; last valid 
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.list off 

************************************************************ 
file name: data.h 

************************************************************ 



; unit = 32 mseconds 

T0_SECONDS .equ 0 
T2_SECONDS .equ 55 

T4_SECONDS .equ 122 

T5_SECONDS .equ 4500/32 

T8_SECONDS .equ 270 

T15_SECONDS .equ 15000/32 

T30_SECONDS .equ 30000/32 

T60_SECONDS .equ 60000/32 



hi i 


;utility flags 








FLAG1 


.equ 


BITO 




FLAG2 


.equ 


BIT1 




FLAG3 


.equ 


BIT2 


3 


FLAG4 


.equ 


BIT3 




FLAG5 


.equ 


BIT4 


iQ 
f-i i 


FLAG6 


.equ 


BIT5 


• ==• 

in 


FLAG7 


.equ 


BIT6 


C3 


FLAG8 


.equ 


BIT7 



*************************************************** 

internal ram/reg allocation 
************************************************************ 



; Register group 0 & 1 for stack ptr 
; Start from reg4 

.************************************************************ 
stack_ptr .equ Oefh 

************************************************************* 

; Utility Group 0 - start from 4 
; 0,1,2,3 are IO port 

.************************************************************ 
UTL_GROUP .equ OOh 
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ata 



**************************** ******************** ************ 
register group 1 

Holds a 1 6-bit pointer to a DAT for a given device 
(AUX) can be any device. 

************************************************************ 
PERMJ3ROUP .equ lOh 



. ************************************************************************* 

5 

MODE .equ 1 lh 

PROGRAM_MODE .equ BIT1 

%Q • ************************************************************************* 

P_MODE .equ 12h ;default -> repeat everything 

f!j PhoneNumberOK .equ BIT1 

************************************************************ 



3 

[II 



register group 2 

used general purpose register group 
************************************************************ 

REGJ3ROUP .equ 20h 

col .equ rO 

row .equ rl 

i .equ r3 

j .equ r4 

loop_cnt .equ r9 

tmp_key .equ rl 

************************************************************ 

Register group 3 - FOR OUTPUT MODULE 
************************************************************ 

OUT_GROUP .equ 3 Oh 

io_flags .equ rO 

IO_FLAGS .equ 30h 
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at a 



TIMEOUTFLAG .equ BIT1 

LOOP_COUNTER .equ 31H 

LOOP_COUNTER_L .equ 31H 
LOOP_COUNTER_H .equ 32H 

curr_loop_counter .equ r3 
currjoopcounterl .equ r3 
curr_loop_counter_h .equ r4 
CURR_LOOP_COUNTER .equ 33H 
CURR_LOOP_COUNTER_L .equ 33H 
CURR_LOOP_COUNTER_H .equ 34H 

KEY_FOR_CODE_FLAG .equ 39h 
TEMPMODE .equ 3ah 



KEY_NUMBER .equ 3ch 

KEYNUMBERBUFFER .equ 3eh 
CHECK1 .equ 3fh ;leave this here 

************************************************************ 

Register Group 40h 
This register group holds the phone number, one digit per byte. 

TEL_DAT_POINTER_GROUP .equ 40h 



CHECK2 .equ 6fh ;leave this here because Vince 

wants it here 

************************************************************ 
************************************************************ 

SPARE REG BANK 0 

CHECK3 .equ 7fh 

SPARE_GROUP .equ 090h 
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lata 



COUNTER .equ 090h 

HIGH_CODE .equ 091h 

LOW_CODE .equ 092h 



MISC_FLAGS .equ 094h ; MISC_FLAGS 

SleepFlag .equ BIT2 ; MISC_FLAGS 

CHECK4 .equ 98h 



FIRST_DIGIT .equ 9ah 

SECOND_DIGIT .equ 9bh 

THIRD_DIGIT .equ 9ch 

timerhigh .equ rl4 

timer_low .equ rl5 

TEMER_HIGH .equ 9eh 

TIMERLOW .equ 9fh 



END_OUT_REGS .equ 9fh 

TEMP_X .equ OdOh 
TEMP_Y .equ Odlh 



; Control Registers 

CTRL_GROUP .equ OfDh 

; extend data group 

EXTENDGROUPJD .equ Odh 
EXTEND_GROUP_F .equ Ofh 

9 

.list on 
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Lata 



.*********** ******************************* ******************* 

> 

; misc equates 

.************************************************************ 

mulLEN .equ rl4 
MULTIPLIER .equ rl 1 
productLO .equ rl3 
product_HI . equ r 1 2 



fU 
CO 
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FVt 



# 



.list off 

; file name: fvt.h 

************* 

; Output & Edge detector 



p3 1 - edge detector 
p34 - t'8_out 

p35 - t8_out & tl6_out logic 
p36 - tl6_out 



GENERAL EQUATES 

gJTO .equ Olh 

8IT1 .equ 02h 

MT2 .equ 04h 

BlT3 .equ 08h 

(SlT4 .equ lOh 

BtT5 .equ 20h 

&T6 .equ 40h 

BIT7 .equ 80h 

C3 

<y_BITO .equ 11111110b 

KS_BIT1 .equ 11111101b 

t|_BIT2 .equ 11111011b 

fe_BIT3 .equ 11110111b 

b_BIT4 .equ 11101111b 

C_BIT5 .equ 11011111b 

C_BIT6 .equ 10111111b 

C_BIT7 .equ 01111111b 

; PORTS 

PortO .equ 00 

Portl .equ 01 

Port2 .equ 02 

Port3 .equ 03 



register definitions 



A-39 




; 17x registers 

; bank D 

ctrO .equ OOh 

Ctrl .equ 01 h 

ctr2 .equ 02h 

tc81 .equ 04h 

tc8h .equ 05h 

tcl61 .equ 06h 

tcl6h .equ 07h 

I0I6 .equ 08h 

hi 16 .equ 09h 

I08 .equ Oah 

hi8 .equ Obh 

[q Bank F 

g?on .equ 00 ;xxxx xxxO 
sfnr .equ Ob ;0010 00x0 

kmr2 .equ Od ;xOxO OOxx 
wdtmr .equ Of ;xxx0 1101 

j 

Control register 0 
*B Counter/timer 8 control register 

^8_ENABLE .equ BIT7 

•as?. 
: j 

p8_SINGLE . .equ BIT6 
T8_RESET_TOUT .equ BIT5 ;reset flag to 0 
T8_CLK_4MHZ .equ 00 
T8_CLK_2MHZ .equ BIT3 
T8_CLK_1MHZ .equ BIT4 
T8_CLK_1_2MHZ .equ BIT4+BIT3 

T8_ENA_INT .equ BIT1 ;enable Time-out int.(IRQ3) 
P34_OUT .equ BITO 

T16_ENABLE .equ BIT7 
T 1 6_EN ABLE_C .equ 07fh 

T16_SINGLE .equ BIT6 ;transmit mode 
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Fvt 



T16_IGNORE_EDGE .equ BIT6 ;tl 6 ignore edge 
T16_RESET_TOUT .equ BIT5 ;reset Hag to 0 
T16_CLK_4MHZ .equ 00 
T16_CLK_2MHZ .equ BIT3 
T16_CLK_1MHZ .equ BIT4 
T16_CLK_1_2MHZ .equ BIT4+BIT3 

T16_CAP_INT .equ BIT2 ;enable data capture int. 

T16_ENA_INT .equ BIT1 ;enable Time-out int.(IRQ3) 
P35_OUT .equ BITO 

; delay unit based on tl 6 - use 2mhz 
; terminal counts = 32 mseconds 

UNIT .equ 010000h/2/1000 

lj* piem - port 1 mode selection regiser 

jjjpjem .equ Och 

J|l_ADDR .equ BIT4 

Jgl HIMPEDENCE .equ BIT4+BIT3 

i& 

3; peon - port configuration register 

[|36_P00_COMPR .equ BITO 
p3m - port 3 mode register 

P2_PUSH_PULL .equ BITO 
P31_ANALOG_MODE.equ BIT1 



P33_IN_P34_OUT .equ 00 
P33_IN_P34_DM .equ BIT3 
P33_DV_P34_RDY .equ BIT4 

P31_DV_P36_RDY .equ BIT5 ;TOUT 

; pOlm 

; pO & PI - port 0 & 1 mode register 
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; pOO - p03 mode 

P00_OUT .equ 00 
P00_IN .equ BITO 
P00_ADDR .equ BIT1 



STACKJNTERNAL .equ BIT2 

P01_OUT .equ 00 
P01_IN .equ BIT3 
P01_ADDR .equ BIT4 
P01_HIMPE .equ BIT4+BIT3 



f§XT_MEM_EXTEND .equ BIT5 
*2p04 - p07 mode 



5?04_OUT 
l04_IN 
©04 ADDR 



.equ 00 
.equ BIT6 
.equ BIT7 



P 

ft! 



ipr - interrupt priority reg 



IRQ - interrupt request reg 



tRQ_l 
IRQ_2 
IRQ_3 
IRQ_4 



.equ 
.equ 
.equ 
.equ 
.equ 



IRQ_P31L_P32L 
IRQ_P31L_P32H 
IRQ_P31H_P32L 
IRQ_P31H_P32H 



BITO ;P32 input 

BIT1 ;P33 input 

BIT2 ;P31 input 

BIT3 ;TC1 6 output/TCI 6 timeout 

BIT4 ;TC8 output/TC8 timeout 
.equ 00 
.equ BIT6 
.equ BIT7 

.equ BIT7+BIT6 



msk - interrupt mask reg. 



MSK_0 
MSK_1 
MSK_2 
MSK 3 



.equ BITO ;P32 input(enable) 

.equ BIT1 ;P33 input 

.equ BIT2 ;P31 input 

.equ BIT3 ;TC 16 output/TCI 6 timeout 
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MSK_4 .equ BIT4 ;TC8 output/TC8 timeout 

MSK_P31L_P32L .equ 00 
MSK_P31L_P32H .equ BIT6 
MSK_P31H_P32L .equ BIT7 
MSK_P31H_P32H .equ BIT7+BIT6 
.list on 



y i 



s 

« 

•ess 1 
?bs5 
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.list off 

.♦it********************************************************** 

; file name: equ.h 

5 

TRUE .equ 1 

FALSE .equ 0 

ON .equ 1 

OFF .equ 0 

YES .equ 1 

NO .equ 0 

HIGH .equ 1 
LOW .equ 0 

C3 

!fiCTIVE_LOW .equ 0 

JIcTIVE_HIGH .equ BIT1 

jglT_COMPLEMENT .equ BIT2 

1 1 I 

j** Status LED's - pOO, pOl ** 
|@reenLedEnable .equ C_BIT1 
sGreenLedDisable .equ BIT1 

Q 

^RecordLedEnable .equ C_BITO 
JMecordLedDisable .equ BITO 

r KeyPadMask .equ 0f8h 
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; .list off 

.************************************************************ 

j 

srp .macro argl 

; .byte 31h,#(argl) 

Id rp,#argl 

.endm 

************************************************************ 
STOP macro 

************************************************ 

m_stop .macro 
ei 

nop 
nop 
stop 
.endm 

rP******************************************************** **** 

HALT macro 

-lit * ****************************************************** 

halt .macro 

cn - . 
ei 

5 s a 

£ nop 
U nop 
halt 
Q .endm 

FSelect_Xecom .macro 
SO and p3,#C_BIT6 
"-^ .endm 

sr— 

ToggleBits .macro 

and p0 9 #Ofh ;reset 

Id p3 5 #00000000b 

; and p3,#C_BIT4 ;Resetp3.4 

; and p3,#C_BIT5 ;Resetp3.5 

and pO,#C_BIT3 ;Reset p0.3 RSO 

; or p3,#BIT6 ;CS=1 

.endm 

************************************************************ 

rsOwrrd macro 

************************************************************ 



rsOwrrd .macro const l,const2,const3 
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call port_delay 

or p3,#C_BIT6 ;CS=0 

or pO,#constl ;Set p0.3 appropriately 

and p3 3 #const2 ;setP3.4 

or p3,#const3 ;setP3.5 

Id p3 ,#00 100000b ;rd=l, wi-=0 

call port_delay 

.endm 

************************************************** 
outdata macro 

********************************** + ; <c^^^^^^^^ + 4:^4:5(c4 ; + + + 4 :5i c^^;^ : ^^ 

outdata .macro const 1 

; and p0,#00001 1 1 lb 

Id p0,#constl 

.endm 

*********************************************************** 

■V? 

\z OutDReg macro 

Same as outdata but uses register 
1^**********************************************^^*+^^^^+^^^^ 

Sn 
w 

IgutDReg .macro reg 

and p0,#00001111b 
Id p0,reg 



.endm 



ru 

f n 

-.****************************************^* + **** 5 t:**^^ : *5t;****** 

},2 turn on green led 

.*************************************>i<******^**^*^*^^^ ) ( C ^^ i([:S f C5 ( < 

GreenLedOn .macro 

and pO, #GreenLedEnable 
.endm 

; turn off green led 

GreenLedOff .macro 

or pO, #GreenLedDisable 
.endm 

.******************************************** J t:*** + + 4;4 : ^ + + 3 J; + + + ^ 
5 

; turn on red led 
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************************************************************* 

RedLedOn .macro 

and pO, #00h ;RedLedEnable 
.endm 

.************************************************************ 
; turn off red led 

.************************************************************ 

3 

RedLedOff .macro 

or pO, #Offh ;RedLedDisable 
.endm 

.************************************************************ 

3 

; load pair register 

; regl = high, reg2 = low 

reg3 = high, reg4 = low 
^ ********************************* 

tflw .macro regl,reg2,reg3,reg4 

J~ Id regl,reg3 
Cn reg2,reg4 

Id endm 

s ^ Load pair register 

^3 regl = high reg 

:f: reg2 = low reg 

^U|e * * * * * * ******* * * ******************************************** 

Jfilrr .macro reg l,reg2, const 
JJ Id regl,#HIGH(const) 

Id reg2, #LOW(const) 

.endm 

; add a word 

; tgtlow,tgthigh = result 

; srclow,srchigh = adder 

3 

addw .macro tgthgh,tgtlow,srchgh,srclow 
add tgtlow,srclow 
adc tgthgh,srchgh 
.endm 

3 

; subtract a word 
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tgtlow,tgthigh = result 

srclow,srchigh = adder 
*************************************** 

subw .macro tgthgh,tgtlow,srchgh,srclow 
sub tgtlow,srclow 
sbc tgthgh,srchgh 
.endm 

************************************************************ 

subtract a word 

tgtlow,tgthigh = result 

srclow,srchigh = adder 
*************************************************** * **** * ** * 

sub3byte .macro tgthgh,tgtmid, tgtlow,srchgh,srcmid,srclow 

sub tgtlow,srclow 
f3 sbc tgtmidjSrcmid 
rfi sbc tgthgh,srchgh 
,n .endm 

?fft **************************************************** ******* 

«j • 

l|J Shift to right through carry 

*********************************************************** 

Hhtr .macro regO 
« rcf 

rrc regO 
ril .endm 

^ .r^t^ 3^ 3^C 3§C 3$C 3fC #|C 3§C 3$C 3§G 3|C 3^C 3|c 5§C 3|C 3|C SfC 3§C S|C 9|C 5|C S|C 5|C S^C 5fC ^^C )|c 3|c ?|c S^C *fc ?fc 3fc SfC SjC dffi )|C 3fC 3^C 5|( SfC *(c 3f» 3§C 3fc J^S i(C 5|C Sfc 3f£ 5|C 3§C S|G 

Lip 

£3 Shift to left through carry 

shtl .macro regO 
rcf 

rlc regO 
.endm 

***************************************************** * * ***** 

Test bit and jump if zero flag = 1 
************************************************************ 

tbitz .macro flag,bitjmp 
tm flag,bit 
jr zjmp 
.endm 

************************************************************ 

Test bit and jump if zero flag = 0 
************************************************************ 

tbitnz .macro flag,bit jmp 
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tm flag.bit 
jr nzjmp 
.endm 

.list on 



a 

m 
m 
w 

C3 

ru 

CQ 
C3 
M 
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Zilog Linkage Editor. Version T2. 11 16-May-101 18:15:11 Page: 1 
LINK MAP: 

Date: Wed May 16 18:15:1 1 2001 
Processor: Z8 

Files: [Command] D:\battcharger\dcbc.cmd 
[Object ] D:\battcharger\main.o 
[Object ] D:\battcharger\KEYNEW.o 
[Object ] D:\battcharger\SRVKEY.o 
[Object ] D:\battcharger\Dialout.o 
[Object ] D:\battcharger\UTIL.o 
[Object ] D:\battcharger\irq.o 

COMMAND LIST: 



C3 1 : -q D:\battcharger\dcbc.cmd 

%3 2: ; ZDS Generated Linker Command File 

JL! 4: -g 

f\ 5: -m "D:\battcharger\dcbc.map" 

6: Range RFELE %0,%100 
u 7: Range XDATA %4000,%C000 
a 8: Range ROM %0,%4000 
£3 9: -o "D:\battcharger\dcbc" 

10: "D:\battcharger\main.o" 
fU 11: "D:\battcharger\KEYNEW.o" 
g 12: "D:\battcharger\SRVKEY.o" 
* J 13: "D:\battcharger\Dialout.o" 
^ 14: "D:\battcharger\UTIL.o" 

15: "D:\battcharger\irq.o" 

Zilog Linkage Editor. Version T2. 11 16-May-101 18:15:11 Page: 2 
SPACE ALLOCATION: 



Space Base Top Span 



ROM 00000000 00000493 494h 

SEGMENTS WITHIN SPACE: 



ROM Type Base Top Span 
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code relocatable 00000000 00000493 494h 

Zilog Linkage Editor. Version T2. 11 16-May-101 18:15:11 Page: 3 
SEGMENTS WITHIN MODULES: 



Module: main.asm (File: D:\battcharger\main.o) Wed May 16 18:15:07 2001 

Name Base Top Size 

Segment: code 00000000 000000FE 255 

Module: KEYNEW.asm (File: D:\battcharger\KEYNEW.o) Mon May 07 10:42:35 2001 
q Name Base Top Size 

i n — — 

^Segment: code 000000FF 0000023F 321 

f%odule: SRVKEY.asm (File: D:\battcharger\SRVKEY.o) Wed May 16 18:15:09 2001 

Name Base Top Size 

j§egment: code 00000240 000002FF 192 

Module: Dialout.asm (File: D:\battcharger\Dialout.o) Wed May 16 18:05:57 2001 

Name Base Top Size 

Segment: code 00000300 000003ED 238 

Module: UTIL.asm (File: D:\battcharger\UTIL.o) Mon May 07 10:42:40 2001 

Name Base Top Size 

Segment: code 000003EE 0000046B 1 26 

Module: irq.asm (File: D:\battcharger\irq.o) Mon May 07 10:42:42 2001 

Name Base Top Size 

Segment: code 0000046C 00000493 40 
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Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 
EXTERNAL DEFINITIONS BY ADDRESS: 



Symbol Address Module Segment 

WaitForKeyPress OO00OOFF KEYNEW.asm code 

WaitForKeyPressUserDelay 000001 ID KEYNEW.asm code 

ScanKeyPad 00000 14D KEYNEW.asm code 

wait_key_off 000001B1 KEYNEW.asm code 

WaitForKeyRelease 000001B1 KEYNEW.asm code 
WaitForKeyReleaseFlashRed 000001 B A KEYNEW.asm code 

delay lOms 000001 C3 KEYNEW.asm code 

delay_100ms 00000 1CF KEYNEW.asm code 

delay_500uS 00000 1DB KEYNEW.asm code 

djlay_ms 000001 E7 KEYNEW.asm code 

Jj>rt_delay 00000 1F6 KEYNEW.asm code 

e]heck_key 00000 IFF KEYNEW.asm code 
^aitForKeyReleaseAndStartThreeSe 00000210 KEYNEW.asm code 

SWviceCode 00000240 SRVKEY.asm code 

fejialOut 00000300 Dialout.asm code 

|Jt_tl6_timer 000003EE UTIL.asm code 

<disable_tl6_timer 00000409 UTIL.asm code 

pJashGreenLed 0000041 A UTIL.asm code 

MashRedLed 00000432 UTIL.asm code 

liiul_8 0000044D UTIL.asm code 

ftult_16 0000045D UTIL.asm code 

Kq3 0000046C irq.asm code 

ktq5 00000493 irq.asm code 

irq4 00000493 irq.asm code 

irq2 00000493 irq.asm code 

irql 00000493 irq.asm code 

irqO 00000493 irq.asm code 

KE Y_NUMB ER 0000003C main.asm (unknown) 

KEY NUMBER BUFFER 0000003E main.asm (unknown) 

29 External symbols. 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 
EXTERNAL DEFINITIONS BY NAME: 



Symbol Address Module Segment 
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check_key 
delay_100ms 
delay_10ms 
delay_500uS 
delay_ms 
DialOut 

disable_tl6_timer 
FlashGreenLed 
FlashRedLed 
irqO 
irql 
irq2 
irq3 
irq4 
irq5 

QgJEY_NUMBER 

^KLEY NUMBER BUFFER 



00000 IFF KEYNEW.asm code 
00000 ICFKEYNEW.asm code 
000001 C3 KEYNEW.asm code 
000001DB KEYNEW.asm code 
00000 1E7 KEYNEW.asm code 
00000300 Dialout.asm code 
00000409 UTEL.asm code 
0000041 A UTIL.asm code 
00000432 UTIL.asm code 
00000493 irq.asm code 



00000493 irq.asm 
00000493 irq.asm 
0000046C irq.asm 
00000493 irq.asm 
00000493 irq.asm 



code 
code 
code 
code 
code 

0000003C main. asm (unknown) 

0000003E main. asm (unknown) 



0000044D UTIL.asm code 
0000045D UTIL.asm code 
000001F6 KEYNEW.asm code 
0000014D KEYNEW.asm code 
00000240 SRVKEY.asm code 
000003EE UTIL.asm code 
000001B1 KEYNEW.asm code 
000000FF KEYNEW.asm code 
iWaitForKeyPressUserDelay 000001 ID KEYNEW.asm code 
J§/aitForKeyRelease 000001B1 KEYNEW.asm code 

^WaitForKeyReleaseAndStartThreeSe 000002 1 0 KEYNEW.asm code 
%aitForKeyReleaseFlashRed 000001BA KEYNEW.asm code 

29 External symbols. 

Zilog Linkage Editor. Version T2. 11 16-May-101 18:15:11 Page: 6 



ttul_8 

Jfc6ult_16 

?pprt_delay 

^canKeyPad 

JierviceCode 

=settl6_timer 

rgrait_key_off 

sWaitForKeyPress 



SYMBOL CROSS REFERENCE: 



Symbol 



Module Use 



check_key 
delay_100ms 



delay 10ms 



KEYNEW.asm Definition 
KEYNEW.asm Definition 
main.asm Reference 
Dialout.asm Reference 

KEYNEW.asm Definition 
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delay_500uS 

delay_ms 

DialOut 

disable tl 6 timer 



FlashGreenLed 
FlashRedLed 
irqO 



Dialout.asm Reference 
UTIL.asm Reference 

KEYNEW.asm Definition 
KEYNEW.asm Definition 
Dialout.asm Definition 
main, asm Reference 

UTIL.asm Definition 
main, asm Reference 
KEYNEW.asm Reference 
Dialout.asm Reference 

UTIL.asm Definition 
UTIL.asm Definition 



irql 
firq2 
^Jfrq3 

f r=i 

Cfrq4 

W 



lrq.asm 
main. asm 

irq.asm 
main, asm 

irq.asm 
main, asm 

irq.asm 
main.asm 

irq.asm 
main.asm 

irq.asm 
main.asm 



fKEY_NUMBER 
J|JEY_NUMBER_BUFFER 
fjnul_8 



Definition 
Reference 
Definition 
Reference 
Definition 
Reference 
Definition 
Reference 
Definition 
Reference 
Definition 
Reference 
main.asm Definition 

main.asm Definition 
UTIL.asm Definition 
KEYNEW.asm Reference 
UTIL.asm Definition 
KEYNEW.asm Definition 
SRVKEY.asm Reference 
Dialout.asm Reference 

KEYNEW.asm Definition 
SRVKEY.asm Definition 
main.asm Reference 

UTEL. asm Definition 
KEYNEW.asm Reference 
Dialout.asm Reference 

KEYNEW.asm Definition 
SRVKEY.asm Reference 

KEYNEW.asm Definition 
main.asm Reference 
SRVKEY.asm Reference 
WaitForKeyPressUserDelay KEYNEW.asm Definition 



C5hult_16 
^port_delay 



ScanKeyPad 
ServiceCode 

set tl 6 timer 



wait_key_off 
WaitForKeyPress 
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SRVKEY.asm Reference 
WaitForKeyRelease KEYNEW.asm Definition 

WaitForKeyReleaseAndStartThreeSe KEYNEW.asm Definition 
WaitForKeyReleaseFlashRed KEYNEW.asm Definition 

End of link map: 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 7 
Symbol Module Use 



0 Warnings 
0 Errors 



S3 



ft A 



spa 

i y 
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irq5 X 00000493 

irq4 X 00000493 

irq2 X 00000493 

irql X 00000493 

irqO X 00000493 

irq3 X 0000046C 

mult_16 X0000045D 

mul_8 X 0000044D 

FlashRedLed X 00000432 

FlashGreenLed X 0000041 A 

disable_tl6_timer X 00000409 

set_tl6_timer X 000003 EE 

DialOut X 00000300 

ServiceCode X 00000240 

WaitForKeyReleaseAndStartThree X 00000210 

check_keyX 00000 IFF 
f gort_delay X 00000 1F6 
J§elay_msX 00000 1E7 
Igelay_500uS X 000001DB 
Cfclelay_100ms X 00000 1CF 
CSelay_l Oms X 000001 C3 
WVaitForKeyReleaseFlashRed X 000001 BA 
;%ait_key_off X 00000 1 B 1 
HVaitForKeyRelease X 00000 IB 1 
J=§canKeyPad X 000001 4D 
:§VaitForKeyPressUserDelay X 000001 ID 
fjVaitForKeyPress X 000000FF 
C§CEY_NUMBER X 0000003C 
CKEY_NUMBER_BUFFER X 0000003E 
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ZiLOG Developer Studio Workspace File 

# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

[PRJ VERSION] 
#begin 

VERSION = 300 
#end 

[MCU TARGET] 
#begin 

NAME = Z86L72 
#end 

[EMULATOR] 
#begin 

NAME = Z86L7 1 00ZEM 
tjtend 

j^PRJ NAME] 
fr#begin 

hNAME = dcbc.zws 
IflTYPE = APP 
t==#end 

i JPRJ PATH] 
j^begin 

l^PATH = D:\battcharger\ 
J^end 

L„3. 

""[FILES] 
#begin 

SOURCE = main.asm 
SOURCE = KEYNEW.asm 
SOURCE ~ SRVKEY.asm 
SOURCE = Dialout.asm 
SOURCE = UTIL.asm 
SOURCE = irq.asm 
#end 

[DEPENDENCIES] 
#begin 

DEP = fvt.inc 
DEP = keydef.inc 
DEP = data.inc 
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DEP = equ.inc 
DEP = macro. inc 
#end 

[C SETTINGS] 

#begin 

C = -g 

C = -Ms 

C= -W 

C = -ZiLOG 

#end 

[ASM SETTINGS] 
#begin 

ASM= -1-g-q 
#end 

C3 

%|LNK SETTINGS] 
#begin 

)TMK = -Z -g -m -q 

\%NK = -r RFILE %0 : %FF 

-jLNK = -r XDATA %4000 : %FFFF 

iJ.NK = -r ROM %0 : %3FFF 

>end 

C3 

-,|lIB SETTINGS] 
f^begin 
ClLlB = -q 
^end 

[DEBUG SETTINGS] 

#begin 

VALUE = 0 

PAD = 0 

#end 

[COM SETTINGS] 
#begin 

PORT = COM2 
BR = 57600 
#end 

[WND STATUS] 
#begin 
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ID = 0 
OPEN = 0 
ID= 1 
OPEN = 0 
DD = 2 
OPEN = 0 
ID = 3 
OPEN = 0 
ID = 4 
OPEN = 0 
ID = 5 
OPEN = 0 
ID = 6 
OPEN = 0 
ID = 7 
-OPEN = 0 

:|d=8 

J|)PEN = 0 
£FID = 9 
ClOPEN = 0 
l|D = 10 
rNDPEN = 0 
H£>= 11 
JjOPEN = 0 
j§D= 12 
f|)PEN = 0 
fiD= 13 
CS)PEN = 0 
I4D = 14 
OPEN = 0 
ID= 15 
OPEN = 0 
ID= 16 
OPEN = 0 
ID= 17 
OPEN = 0 
ED = 18 
OPEN = 0 
ID= 19 
OPEN = 0 
ID = 20 
OPEN = 0 
ID = 21 
OPEN = 0 
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ID = 22 
OPEN = 0 
ID = 23 
OPEN = 0 
ID = 24 
OPEN = 0 
ID = 25 
OPEN = 0 
ID = 26 
OPEN = 0 
ID = 27 
OPEN = 0 
#end 

[OTP SETTINGS] 
a #begin 

'©EVICE = Z86E72 
'#OPMARK = Standard 
iS"YPE = -2124744304 

Options = o 

[METHOD = 0 
=^IZE = 1 

^ADDRESS = 4294967295 
3 SERIALNUMBER = 4294967295 
^EP = 0 
i^end 

ru 

firs 

JjjWATCH SETTINGS] 
flbegin 

#end 

[C WATCH SETTINGS] 

#begin 

Tabid = 0 

Tabid = 1 

Tabid = 2 

Tabid = 3 

#end 

[OVERRIDE SETTINGS] 
#begin 
STATUS = 0 
SIZE= 16384 
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#end 

[BREAKPOINT SETTINGS] 
#begin 

FILENAME = D:\battcharger\SRVKEY.asm 
LINE = 201 

ADDRESS = 0x000002fa 

FILENAME = D:\battcharger\SRVKEY.asm 

LINE = 198 

ADDRESS = 0x000002 f4 

FILENAME = D:\battcharger\SRVKEY.asm 

LINE =112 

ADDRESS = 0x0000028b 

FILENAME = D:\battcharger\Dialout.asm 

LINE = 146 
r^ADDRESS = 0x00000390 
ifFILENAME = D:\battcharger\Dialout.asm 
\ELINE =138 

CRADDRESS = 0x000003 8c 
{'FILENAME = D:\battcharger\main.asm 
WLINE= 184 

JADDRESS = 0x000000a4 

FILENAME = D:\battcharger\main.asm 
J^INE = 165 

^ADDRESS = 0x00000098 
fi}tend 
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Q 

sQ 
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10000000049304930493046C04930493E6FEOOE6C3 
1 000 1 OOOFFEFE6F700E6F6FFE6F804E6FDODE60082 
1 000200020E60 1 03E60220E6FD0FE60F00E600FEF3 
10003000E60E04760080EB2CE60020E6FD20A63FCD 
1 0004000 AAEBO AA66FAAEB05 A67F AA6B 1 7E6FD002E 
1000500058FFB1E500E5A6E505EBF7E63FAAE66F38 
1 0006000 AAE67F AAE6FD20E6 1 1 00E6 1 200E6020FEE 
10007000E60147460340E600084600FF1803760302 
1 0008000026B2 1 7603046B 1 CD600FFFBD7D60240 1 F 
10009000D600FF7BF8D604097603026B07760304CB 
1 OOOA0006B028BCOE64CFFD601 CFD603008BB54365 
1000B0006F70797269676874202863293230303034 
1 000CO0O2D32303O3 1 2043686 1 6D6265726C6 1 6938 
1000D0006E2047726F75702E20446576656C6F7068 
1000E00065642062792059616D7465636820496E8A 
0F00F000632C20383437203936332032383239F8 
i 1 000FF0076 1 1 02EB08E63201 E63 1 0E8B06E63201 8D 
1 00 1 0F00E63 1 0ED60 1 B 1 76 1 1 026B035600FDE432D3 
■H0011F0034E43133463002D603EED6014DFB157869 
U0012F003C9C32D6014DFBOCA43CE7EB079AF4D66E 
\ 1 00 1 3F000409DF AF763002EBE 1 D60409CFAF5 600E A 
! 10014F00F8E63CFFB0E13C01A6E104BB3D48E354B7 
: 1 00 1 5F0002E46B07 1 E90E3FBEF8B2FBOE04600FF2E 
: 1 00 1 6F005600FE A6E004BB22D60 1 F6D60 1 F65 802D 1 
■j 1 001 7F0056E50FA6E50FEB 1 7580046E5F890E54654 
-10018F00E5F854E500FB030E8BD95600F8CFAFB856 
i 1 00 1 9F00E 1 DC03D6044D02DOD93C5600F8D6022 1 3B 
1 00 1 AFOODF AF5 600F8D60 1 FF7BFB AF5600F8D60 1 44 
1 00 1 BF00FF7BFB AF70E33C 1 4D601 DB3 AFB5 0E3 AFAO 
1 00 1 CF0070E44C32D60 1 C34 AFB5 0E4 AF70E3 3C 1 7E6 
1 00 1 DF00D60 1 F63 AFB5 0E3 AF5 600FDD60 1 DB4600E 1 
1 00 1 EF0002D60 1 DB3 AF2 AF70E470E450E450E4AFB2 
1 00 1 FF005600F8080256E00F A6E00F6B02DFAFCFF4 
1 0020F00AF0CFF00E06B09D601 C3D601FF7BF4AF43 
1 002 1F00DFAF0C02 1 C34043CE1 1 6E000C220293C85 
1 0022F00AFE63CFFAF01 02030405060708090A0009 
01023F000CB2 

10024000A63COCBBOCA63COA6D02C6A63COC6D027B 
1 002500052 AF46 1 1 02560 1 BFE64041 D60 1 B 1 E63227 
1002600003E631A9D6011DFD029FD602B07D029F93 
10027000F53C402040D600FFFD029F5600FDA63C05 
1002800009BD029FF53C4020408AEAE740FF460056 
1 0029000FFE6 1 1 00CF460 1 4046 1 202D601 B 1 AFE79 A 
1 002 A00040FF4600FF460 1 40E6 1 1 005 6 1 2FDDFAF59 
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1002B0008COAA63C006B09A63C016B028C06CFAFF2 
1 002C0008C00DF8B20 AFD60 1 B 1 E63203E63 1 A9E620 
1002D0000106D601F6D6011DFD02DEE60107E601A4 
1 002E0000746 1 1 00 AFD60 1 B 1 E60 1 03D60 1 F6E632AA 
1 002F00003E63 1 A9D601 1 DFD02DEE60 1 07DF8BDE34 
1 0030000E60 1 87D603B5E6404 1 460 1 80D60 1 CFD647 
1 003 1 0000 1 CFE540E2 A6E2FF6B 1 5D60 1 CFD603D5 AB 
100320002900E60320E6034046000820408BE3E670 
1 003 3 0000360D60 1 CFD60 1 CFE6340 1 E6330E463 056 
1003400002D603EED601F6763002EBFBD601F6E6D6 
100350003403E633A9463002D603EE5601FBD6013C 
1 003 6000F6763002EBFBD60409E60 1 87D60 1 F6E605 
100370003403E633A9463002D603EEE60183D60104 
10038000F6763002EBFBD60409E601F756017FAFA3 
100390005600F7D601F65603EF4603205603BFAFCB 
1 003 A000E6F8445603BF4600084603 1 05603DFD65E 
C31003B00001C3FFFFAFE60350E60019E60320E603A2 
v£: 1 003C00050E60099E60320E60350E60008E6032025 
V3 1 003D000E603 50 AFAFOC03 1 CE402 1 2 1 6E000C2208B 
SL-0E03E000AF2CFFAFA0 1 1 203 1 405 1 607 1 809 1 1 1 
H-l 003EE0070FDE6FD2DE606FFE607FFE60226E601B6 
% 1 003FEOOF346028046FB089F50FDAF70FDE6FD2DD3 
Lt 1 OO40E00E6O2205 6FBF75 0FD5 630FD AF70E88C0 A2 1 
1 : 1 004 1 E005600FDD601 C3460002D601 C3D601 C38 ADB 
C310042E00EF50E8AF70E88CO5560O00D6O1C3D60138 
^310043E00C34600FFD601C3D601C38AEC50E8AFEC29 
rU 1 0044E0009B0ECCFC0ECC0EDFB0202CBEAF6AFC8B0 
W0E045E00EAD8EB00E96B0602BD 1 2AC9AFAAFC9 
FJ 1 0046C0070FDE6FD3D7602206B 1 A46022076E002 1 6 
|i ~:10047C006B1226E30136E400EBOAA6E36oEB05560B 
:O8O48C00EOFD8B005OFDBFBF35 
:00000003FD 
:00000001FF 
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.**************************************************^ 



; DESCRIPTION: 



H REVISION HISTORY: 



V1.0 Date: 6/7/94 

V2.0 Date: 8/14/96 

V3.0 Date: 10/96 Author: 



*********************************************** 



.** i nc i u de files ** 

.include fvt.h 
.include data.h 
.include equ.h 
.include keydef.h 
.include macro. h 

;** external functions ** 

.extern ParseD AT 
.extern CheckPunchThru 



; FILENAME: fmdkey.s 
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p 

■fi 



.extern WaitForKeyReleaseFlashRed 
.extern SendIR 
.extern SetDriver 
.extern ScanKeyMap 

.extern mul_8 
.extern check_key 
.extern blink_green 

.extern GetSleepTime 
.extern ConfigForSleep 
.extern DeviceLightsOff 

.extern CheckVolPriority 

** public functions ** 

.global SendCode 



FILENAME: findkey.s 
SendCode 
Version: 

Date: 09/30/96, 11:42:30 
Author: 

Function: Sends Key Data for all send modes, ie Normal, Action, and Double Actio 



Inputs: 

KEYNUMBER = (range of 0 to 36), only sending keys if it got here 
IR_MODE = signifies if in action/double action/punchthru/ .... 

S ELECTED_DE VICE - last device key hit /// ACTIVE_DEVICE = current 
device to send 

; DEVICE_FLAG = last device key hit to restore last code after punchthru 

; SendCounter = number of times to send 1 = send once (if 0 then send once 

only) 

; OVERLAY ADDR, OVERLAY_ADDR+l : address to overlayed dat file 

MapSize .equ #40 
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Returns: 

CF = 0 - OK 
CF = 1 - Error 

Modifies: 

Subords: 

SendCode: 

;** punch thru overhead ** 

push DEVICE_FLAG ; in case we do 

punch thru we can get back to original mode 

Ijj Id ACTIVEJDEVICE, SELECTEDDEVICE 

Id ACTIVE_DEVICE+ 1 , SELECTED_DE VICE+ 1 

Cn ;** volume priority ** 

W call CheckVolPriority ; reconfigs for device with 

^volme priority 

LPunchThruStart: 

*□ and %fc, #1 1 1 1 1 100b ; clear user flags 

ry 

f 3 Id rO, ACTIVE_DEVICE 
Q or rO, ACTIVE_DEVICE+1 

H jp z, ExitError ; code isn't programmed, 

ExitError 

Id rO, ACTIVE_DEVICE 

Id rl , ACTIVE_DEVICE+1 ; rrO = pointer to 

dat file 

;** rrO ptr to dat file, parse the 1st and 2nd byte of the dat file ** 

ldc r3, @rr0 

Id MOD_TYPE, r3 

incw rrO 

ldc r3, @rr0 

Id CODE_LEN_BITS, r3 ; CODE_LEN_BITS defined 

and r3, #3fh 
Id r4 s r3 
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sra r3 

sra r3 ; divide 

CODE_LEN_BITS by 8 
sra r3 
and r4, #07h 

jr z, NoRemainder ; if the lower 3 

bits are 0, there will be no remainder. 

inc r3 
NoRemainder: 

Id CODELENBYTES, r3- ; 
CODE_LEN_BYTES defined 

;** parse the 1st and 2nd byte of the dat file ** 
incw rrO ; point to 

CARRIER (3rd byte of dat file) 

call ParseDAT ; inputs: rr0=ptr to dat+2 

^CARRIER), MOD_TYPE; output:rr0 points to keymap[0] 

sr. 

% ;** adjust KEY_NUMBER to action/double_action range ** 

|L| tbitnz IR_MODE s #DOUBLE_ACTION_MODE, InDoubleActionMode 

K! tbitnz IRMODE, #ACTION_MODE, InActionMode 6 

li j r OverHeadDone 

3 InDoubleActionMode: 

P add KEY_NUMBER, #MapSize ; adjust to 

^pActionMode 

InActionMode: 

add KEY_NUMBER, #MapSize ; adjust to 

TTActionMode 

OverHeadDone: 

Id KEY_NUMBER_BUFFER 9 KEY_NUMBER ; make a copy for 
checkpowerflag 

;** KEY_NUMBER defined, check if pip special feature ** 
; call CheckPipFlag ; add 40 to 

KEY_NUMBER if needed 

;** rrO points byte after FLAG byte! Either keymap[0] or standardkeygroup ** 
call CheckStandardKeys ; adjust rrO to 

STAND ARD NUMBER GROUP if FLAG set 

jr nc, OffsetConfigured ; c=0 if standard key 

;** rrO points to keymap [0] ** 

call ScanKeyMap ; input: 
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KEY_NUBMER and rrO = pointer to keymap[0]; output: KEY_NUMBER = offset into dat 
jr nc, KeylnMap 

;** not in keymap, check if it's overlayed ** 
call CheckOverlay ; returns: rrO 

points to flag byte 

jr c, NoOverlay 

call ReconfigFlagByte ; inputs: rrO points to flag byt 

e 

incw rrO ; point to byte 

after flag byte 

jr OverHeadDone 

. NoOverlay: 

call CheckPunchThru ; returns: c=0 if 

punchthru 

jp nc, PunchThruStart 
,f\ jr ExitError 

ff\. ************************************************* 

rrO points to rawkeydata[0] 

KE Y_NUMB ER is to offset into rawkeydata[table] 

*********************************** ++ *^ + ^*** ++ * + * + **^ ++ **^ ++ + ^ s(e;H *^^ 
—KeylnMap: 

lr\ call CheckPowerFlag ; adjust 

mKEY_NUMBER if [POWER] key hit 

QO ffs et Confi gured : 

M ;** rrO and KEY_NUMBER configured - move rrO to rawkeydata ** 
Id r 1 3 , CODE_LEN_B YTES 

Id rl 1 5 KEY_NUMBER ;holds the actual 

key number 

call mul_8 
addw r0,rl,#0,rl3 

cp RF TOGGLE, #Offh 
jr ne, NoRF 
;RFOn 
NoRF: 

; tbitnz ER_MODE, #SCAN_MODE, NoDevLights ;in scan mode don't mess with 
the dev lights 

call DeviceLightsOn ;this line must 

precede the call to set driver 
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;NoDevLights: 

;driver to reconstruct the code in Ram 
and CODE_LEN_BITS,#3fh 
call SetDriver 
jr c, DriverlsSelfContained 



call SendER 



DriverlsSelfContained: 
;RFOff 

pop DEVICEFLAG 
rcf 

ret ; Exit point for IR 

transmission 



QExitError: 

tbitnz IRMODE, #SCAN_MODE, NoLightsScan ;in scan mode don't mess with 
^Dthe dev lights 
^LJ call DeviceLightsOn 

*~;NoLightsScan: 

1,1 pop DEVICE_FLAG ; in case we do 

3 punch thru we can get back to origonal mode 
p call WaitForKeyReleaseFlashRed 

*B scf 
fU ret 



************************************************** 

FILENAME: findkey.s 



CheckPipFlag 
Version: 

Date: 11/01/96, 13:59:26 
Author: 

Function: For picture in picture devices 

If pip key hit then menu cluster goes into pip mode. 

If menu key hit then menu cluster goes into menu mode. 

If in double action then xx_pip = pip 
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Inputs: KEY_NUMBER 
IR_MODE (pip flag) 

Returns :KEY_NUMBER = KEY_NUMBER+40 if flag and mode and key hit 
IRMODE (pip flag - set or clears) 

** ** * ********************************** ************ ********* 

CheckPipFlag: 
PipExit:ret 



.************************************************************ 
; FILENAME: findkey.s 

EH 

ReconfigFlagByte 
Cfj Version: 

Clj Date: 10/31/96, 10:16:49 
^ Author: 

IJL 

r T Function: For overlay codes when re-reading the master dat file reconfig the FLG 
l§ byte 

to correctly grap the correct key data. 

rl 

Ep Inputs: rrO points to flag byte in dat file 

FLGS = FLGS for the overlayed code 
; Returns: 

3 

; Modifies: 

3 

; Subords: 

3 
3 

ReconfigFlagByte: 

;** rrO points to flag byte ** 

ldc r2, @rrO ; FlagByte 

.** recon fig s td flag ** 

tbitz r2 ,#ST AND ARDKE Y_FL AG, FlagNotSetO 

or FLGS, #STANDARD_KEY_FLAG ; set flag 
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jr DoAction 
FlagNotSetO: 

and FLGS, # A c STAND ARD_KEY_FLAG ; clear flag 

DoAction: 

;** reconfig action flag ** 

tbitz r2 ,# ACTION_FL AG, FlagNotSetl 

or FLGS, #ACTION_FLAG ; set flag 

jr DoDoubleAction 
FlagNotSetl: 

and FLGS, # A c ACTION_FLAG ; clear flag 

DoDoubleAction: 

;** reconfig double action flag ** 

tbitz r2,#DOUBLE_ACTION_FLAG, FlagNotSet2 

or FLGS, #DOUBLE_ACTION_FLAG ; set flag 

rg jr Exit2 

sOFlagNotSet2: 

*3 and FLGS, # A c DOUBLE_ACTION_FLAG ; clear flag 

CD 

ppxit2: ret 

~~ * * * * * * * * **** * ** * * ** ************* * ** * ********* *************** 

q FILENAME: findkey.s 
fU CheckOverlay 

; s » 

H Version: 

H Date: 10/02/96, 13:41:43 

; ' Author: 

; Function: 

; Inputs: CODE_LEN_BITS, BIT #40h if set then overlayed code 

; OVERLAY ADDR, O VERL A Y_ ADDR+ 1 : address to overlayed dat file 

; Returns: 

; CF = 0 - Overlayed (also clears overlay flag) 

; CF = 1 - NotOverlayed or Overlayed Checked Once already or in 

Action^ Mode 

> 

.************************************************************ 
J 

CheckOverlay: 
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m 



ndkey 



m 



tbitz CODELENBITS , #OVERLAY_FLG, NotOverlayed 

and CODE_LEN_BITS, # A c OVERLAY_FLG ; clear overlay fig. 

Id rO, OVERLAY ADDR 

Id r 1 , O VERL A Y_ADDR+ 1 

rcf 

ret 

NotOverlayed: 
scf 
ret 



*************************************************** 
FILENAME: findkey.s 

CheckPowerFlag 

Version: 

Date: 10/01/96, 14:36:39 
Author: 

Function: Determines if 1 is added to KEY_NUMBER. 
Will add 1 if POWER_FLG set and: 

if toggle=power off 
or if in Action modes 
fS(key_number > action_0) 

Inputs: KEY_NUMBER 
rrO = POWER key data 

KEY_NUMBER = offset into dat file (1 byte/key) 
KE Y_NUMB ER_B UFFER = key hit 

Returns: 

rrO = points to POWER_ON or POWER_OFF key data (depending on 

toggle) 

KE Y NUMB ER = offset into dat file raw data 

************************************************************ 

CheckPowerFlag: 

tbitz CODE_LEN_BITS, #POWER_FLG, cpf_exit 
cp KEY_NUMBER_BUFFER, #X_KEY_0 
jr uge, AddOne 
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cp KEY_NUMBER_BUFFER, #KEY_POWER 
jr nz, cpf_exit 

inc POWERSENDFLG 
tbitnz POWER_SEND_FLG, #BIT0, cpf_exit 
AddOne: 

add KEY_NUMBER, #1 ; send power_off 

if POWER_SEND_FLG = odd 
cpf_exit: 

ret 

; FILENAME: fmdkey.s 

; CheckStandardKeys 

Version: 
]; Date: 10/01/96, 16:13:33 
|; Author: 

^; Function: 



Inputs: rrO — byte after the flag byte: maybe keymap[0] or stand_num_group 
KEY NUMBER = offset to raw key in dat file 

Returns: 

if standard group: 

rrO = pointer to Standard_Number_Group if digit hit 

CF = 0 - number key hit and STAND ARD KEY FLAG set 

else 

rrO = pointer to keymap[0] 
CF = 1 - not a number key 



CheckStandardKeys: 

tbitz FLGS ? #STAND ARD KE Y_FLAG, FlagNotSet 
cp KE Y NUMB ER, #9 
jr ugt,NotANumberKey 

;number key hit and S T AND ARD_KE Y_FLAG set 
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ldc r2 s @rr0 ; standard key 

set# defined 

rcf 

rlc r2 

ldrr r8 ,r9 , S T AND ARDKE Y_T AB LE 
addw r8,r9,#0,r2 
ldc rO,@rr8 
incw rr8 
ldc rl,@rr8 

rcf 
ret 

NotANumberKey: 

incw rrO ; point to 

f3 KeyMap[0] 

^FlagNotSet: 

fh scf 



ret 



CO 
O 



FILENAME: g:\500\540\findkey.s 
DeviceLightsOn 
Version: 

Date: 12/09/96, 11:22:03 
Author: 

Function: 



Inputs: 

Returns: 

CF = 0 - OK 
CF = 1 - Error 

Modifies: 
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; Subords: 

DeviceLightsOn: ;lights up the Active Device key 

call DeviceLightsOff 

push DEVICE_FLAG ;Save it 

cp DEVICE_FLAG,#ObOh 

jr ult,Sat 

sub DEVICE_FLAG,#70h 
RedLedOn 

Sat: 

cp DEVICE_FLAG, #DEV_SAT 

p jr ne, NotSat 

;R 

\Q SatLedOn 
tn ;ret 

; 3 2 

"CP * 

4: NotSat: 

J cp DEVICE_FLAG, #DEV_VCR 

* jr ne, NotVcr 

S Q VcrLedOn 
fU ;ret 

to 

□ NotVcr: 

cp DEVICEFLAG, #DEV_TV 
jr ne, NotTV 

TvLedOn 
;ret 

NotTV: 

cp DEVICE_FLAG, #DEV_RCVR 
jr ne, NotCbl 

CblAmpLedOn 
;ret 
NotCbl: 

cp DEVICE_FLAG,#DEV_CABLE 

jr ne,Ledret 

AuxLedOn 
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Ledret: 

pop DEVICE_FLAG 
ret 



STAND ARDKEYT ABLE: 

.extern SET_0,SET_1 ,SET_2,SET_3,SET_4,SET_5,SET_6,SET_7 

.extern SET_8,SET_9,SET_10,SET_1 1,SET_12,SET_13,SET_14 

.extern SET_1 5,SET_1 6,SET_1 7,SET_1 8,SET_1 9,SET_20,SET_2 1 ,SET_22 

.extern SET_23,SET_24,SET_25,SET_26,SET_27,SET_28,SET_29 

.extern SET_30,SET_3 1 ,SET_32,SET_33,SET_34,SET_35,SET_36,SET_37 

.extern SET_38,SET_39,SET_40,SET_41 ,SET_42,SET_43,SET_44 

.extern SET_45,SET_46,SET_47,SET_48,SET_49,SET_50,SET_5 1 

.extern SET_52,SET_53,SET_54,SET_55,SET_56,SET_57,SET_58,SET_59 



.word 


SET 


0 


.word 


set" 


"l 


.word 


SET_ 


2 


.word 


SET 


"3 


.word 


set" 


4 


.word 


SET 


5 


.word 


set" 


6 


.word 


SET 


7 


.word 


set" 


8 


.word 


set" 


.9 


.word 


SET 


_io 


.word 


SET 


11 


.word 


set" 


"l2 


.word 


SET 


13 


.word 


set" 


.14 


.word 


SET_ 


15 


.word 


SET 


16 


.word 


set" 


17 


.word 


SET 


18 


.word 


SET 


19 


.word 


SET_ 


.20 


.word 


SET 


21 


.word 


set" 


"22 


.word 


SET 


.23 


.word 


SET 


"24 


.word 


SET_ 


_25 


.word 


SET 


.26 


.word 


SET 


27 
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.word SET_28 

.word SET_29 

.word SET_30 

.word SET 31 

.word SET_32 

.word SET_33 

.word SET_34 

.word SET_35 

.word SET_36 

.word SET_37 

.word SET_38 

.word SET_39 

.word SET_40 

.word SET_41 

.word SET_42 

.word SET_43 

.word SET_44 

.word SET_45 

.word SET_46 

.word SET_47 

.word SET_48 

.word SET_49 

.word SET_40 

.word SET_51 

.word SET_52 

.word SET_53 

.word SET_54 

.word SET_55 

.word SET_56 

.word SET_57 

.word SET_58 

.word SET_59 
.end 
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